C# / VB.NET - [vb.net] Chiamare sub da una classe diversa

Forum - C# / VB.NET - [vb.net] Chiamare sub da una classe diversa

growning (Normal User)
Rookie

Messaggi: 22
Iscritto: 17/06/2009

Postato alle 18:02
Venerdì, 22/01/2010

Ciao, ho creato una classe che deriva un Label che chiamerò mylabel.

In mylabel all'evento "DoubleClick" eseguo del codice.

Come potrei fare a chiamare una sub stante nella classe che istanzia mylabel?

per ora faccio con una select case enorme che vorrei togliere:

Codice sorgente - presumibilmente VB.NET

Protected Overrides Sub OnDoubleClick(ByVal e As System.EventArgs)
'istruzioni
                  Select Case MyBase.Parent.Name
                    Case form1.Name
                        form1.SUBdachiamare
                End Select
                       MyBase.OnDoubleClick(e)
        End Sub

Ho provato con i delegate ma non sono riuscito

Il Totem (Admin)
Guru^2

Messaggi: 3635
Iscritto: 24/01/2006

Postato alle 10:48
Sabato, 23/01/2010

L'idea è questa: dichiara una nuova interfaccia che imponga l'implementazione di quella sub, ad esempio:

Codice sorgente - presumibilmente C# / VB.NET

Interface IMyInterface
   Sub NomeSub()
End Interface

Quindi implementala in ogni form che la label dovrà richiamare:

Codice sorgente - presumibilmente VB.NET

Class Form1
  Implements IMyInterface
 
  Sub SUBForm() Implements IMyInterface.NomeSub
    '...
  End Sub
End Class

Ora dichiara, nella classe myLabel, un dizionario che associa al nome di un form la sua istanza. Il dizionario deve essere tipizzato in modo da contenere elementi di tipo IMyInterface:

Codice sorgente - presumibilmente VB.NET

Class myLabel
  Inherits Label
 
  Private Forms As New Dictionary(Of String, IMyInterface)
  Private form1 As Form1
  '...
 
  Sub New()
    MyBase.New()
    Forms.Add("form1", form1)
    '...
  End Sub
 
  Sub OnDoubleClick()
    '...
    Forms(MyBase.Parent.Name).NomeSub()
  End Sub
End Class

growning (Normal User)
Rookie

Messaggi: 22
Iscritto: 17/06/2009

Postato alle 18:17
Sabato, 23/01/2010

Testo quotato

Postato originariamente da Il Totem:

L'idea è questa: dichiara una nuova interfaccia che imponga l'implementazione di quella sub, ad esempio:

Codice sorgente - presumibilmente C# / VB.NET

Interface IMyInterface
   Sub NomeSub()
End Interface

Quindi implementala in ogni form che la label dovrà richiamare:

Codice sorgente - presumibilmente VB.NET

Class Form1
  Implements IMyInterface
 
  Sub SUBForm() Implements IMyInterface.NomeSub
    '...
  End Sub
End Class

Ora dichiara, nella classe myLabel, un dizionario che associa al nome di un form la sua istanza. Il dizionario deve essere tipizzato in modo da contenere elementi di tipo IMyInterface:

Codice sorgente - presumibilmente VB.NET

Class myLabel
  Inherits Label
 
  Private Forms As New Dictionary(Of String, IMyInterface)
  Private form1 As Form1
  '...
 
  Sub New()
    MyBase.New()
    Forms.Add("form1", form1)
    '...
  End Sub
 
  Sub OnDoubleClick()
    '...
    Forms(MyBase.Parent.Name).NomeSub()
  End Sub
End Class

Ciao, ho provato il tuo codice, ma all'apertura del form ricevo questo errore:

Codice sorgente - presumibilmente Python

Errore durante la creazione del form. Per informazioni dettagliate vedere Exception.InnerException. Errore: Errore durante la creazione del form. Per informazioni dettagliate vedere Exception.InnerException. Errore: Il form ha fatto riferimento a se stesso durante la costruzione da un'istanza predefinita e si è verificata una ricorsione infinita. All'interno del costruttore del form fare riferimento al form utilizzando 'Me.'

Ho provato a sostituire (anche se non c'entra molto)

Codice sorgente - presumibilmente Plain Text

Forms.Add("form1", form1)

con

Codice sorgente - presumibilmente Plain Text

Forms.Add(mybase.parent.name, mybase.parent)

e ricevo quest'errore:

Codice sorgente - presumibilmente C# / VB.NET

Errore durante la creazione del form. Per informazioni dettagliate vedere Exception.InnerException. Errore: Riferimento a un oggetto non impostato su un'istanza di oggetto.

Ultima modifica effettuata da growning il 23/01/2010 alle 21:14

Il Totem (Admin)
Guru^2

Messaggi: 3635
Iscritto: 24/01/2006

Postato alle 12:14
Lunedì, 25/01/2010

Ovviamente non puoi aggiungere form1 alla collezione Forms da form1, poiché per creare un'istanza di form1 viene richiamata la sub New, la quale aggiunge la nuova label, la quale crea a sua volta un'altra istanza di form1, la quale crea una nuova label, e così via all'infinito.

form1 era solo un esempio. Dovrai aggiungere alla collezione Forms i form esistenti, magari tramite My.Forms.

Per quanto riguarda il secondo errore, durante la creazione della label, la proprietà Parent non è ancora impostata, perciò è nulla.

growning (Normal User)
Rookie

Messaggi: 22
Iscritto: 17/06/2009

Postato alle 12:22
Lunedì, 25/01/2010

Testo quotato

Postato originariamente da Il Totem:

Ovviamente non puoi aggiungere form1 alla collezione Forms da form1, poiché per creare un'istanza di form1 viene richiamata la sub New, la quale aggiunge la nuova label, la quale crea a sua volta un'altra istanza di form1, la quale crea una nuova label, e così via all'infinito.

form1 era solo un esempio. Dovrai aggiungere alla collezione Forms i form esistenti, magari tramite My.Forms.

Per quanto riguarda il secondo errore, durante la creazione della label, la proprietà Parent non è ancora impostata, perciò è nulla.

Ok.

ps: prima di questo post non utilizzavo Sub New...è un errore?

Ho provato a spostare tutto il codice che stava sotto l'e OnCreateControl nel Sub New e funziona.